' Create the document (Can only create the AcroExch.PDDoc object using
' late-binding)
Set AcroApp = CreateObject("AcroExch.App")
set AcroAVDoc = CreateObject("AcroExch.AVDoc")

' Open the document
ret = AcroAVDoc.Open("G:\web\baoguan\test\310120140516952419.1.html","h")
REM AcroApp.Show
if ret then
    Set pdCodeFile = AcroAVDoc.GetPDDoc
    tt=AcroAVDoc.GetTitle
    msgbox tt
    pgs=pdCodeFile.GetNumPages
    msgbox pgs
    pdCodeFile.DeletePages 1,1
    pgs=pdCodeFile.GetNumPages
    msgbox pgs
    pdCodeFile.Save 1,"G:\web\baoguan\test\hpdf.pdf"
    pdCodeFile.Close
    AcroAVDoc.Close 0

end if

AcroApp.Exit
Set pdCodeFile = Nothing
Set AcroAVDoc = Nothing
Set AcroApp = Nothing
